home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / flags.tcl < prev    next >
Text File  |  1996-01-20  |  4KB  |  157 lines
  1.  
  2. set tileWidth [expr $screenWidth - 10]
  3. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  4. set tileHeight [expr $screenHeight - 60]
  5. set defHeight $tileHeight
  6.  
  7. set mar 22
  8. set errorHeight [expr (($tileHeight - $mar) / 3)]
  9. set errorDisp [expr (2 * ($tileHeight - $mar)) / 3]
  10. unset mar
  11.  
  12. set tclvars {}
  13.  
  14. set allFlags {}
  15. set allVars {}
  16. set invisibleModeVars(wordWrap) 1
  17.  
  18. # The following three procs, together w/ the initialization 
  19. # for the flags below, allow a totally Tcl-controlled menu to 
  20. # shadow Alpha's internal variables.
  21. proc initFlag {var {val ""}} {
  22.     global $var modeVars tclvars allFlags
  23.     if {[lsearch -exact $tclvars $var] < 0} {
  24.         lappend tclvars $var
  25.     }
  26.     linkVar $var
  27.     if {[string length $val]} {set $var $val}
  28.     lappend allFlags $var
  29. }
  30.  
  31. # Called for ordinary tcl global vars we want included in the Flags menu.
  32. proc initTclFlag {flag {val 0} {pname ""}} {
  33.     global $flag allFlags tclvars modeVars tcl_var_procs
  34.     if {[lsearch -exact $tclvars $flag] < 0} {
  35.         lappend tclvars $flag
  36.     }
  37.     if {![info exists $flag]} {set $flag $val}
  38.     lappend allFlags $flag
  39.  
  40.     if {[string length $pname]} {
  41.         set tcl_var_procs($flag) $pname
  42.     }
  43. }
  44.  
  45. # Called for ordinary tcl global vars we want included in the Vars menu.
  46. proc initTclVar {var {val ""} {pname ""}} {
  47.     global $var tclvars modeVars allVars tcl_var_procs
  48.     if {[lsearch -exact $tclvars $var] < 0} {
  49.         lappend tclvars $var
  50.     }
  51.     if {[string length $val]} {
  52.         set $var $val
  53.     }
  54.     if {![info exists $var]} {set $var 0}
  55.     lappend allVars $var
  56.  
  57.     if {[string length $pname]} {
  58.         set tcl_var_procs($var) $pname
  59.     }
  60. }
  61.  
  62. proc initVar {var {val ""}} {
  63.     global $var tclvars modeVars allVars
  64.     if {[lsearch -exact $tclvars $var] < 0} {
  65.         lappend tclvars $var
  66.     }
  67.     linkVar $var
  68.     if {[string length $val]} {
  69.         set $var $val
  70.     }
  71.     lappend allVars $var
  72. }
  73.  
  74. # This file contains methods allowing the shadowing of tcl variables 
  75.  
  76. initFlag autoHScroll
  77. initFlag autoSave
  78. initTclFlag backup
  79. initFlag blinkingCursor
  80. initFlag blockCursor
  81. initFlag coloring
  82. initFlag dragAndDrop
  83. initTclFlag forceMainScreen 1
  84. initFlag horScrollBar 0
  85. initFlag hyperText 1
  86. initTclFlag iconifyOnSwitch
  87. initFlag indentOnCR
  88. initTclFlag infoWindowsDirty 0
  89. initTclFlag intelCutPaste 1
  90. catch {initFlag lockStatus 1}
  91. initFlag moveInsertion
  92. initFlag openAllFiles
  93. initFlag powerThumb
  94. initFlag projectorAware
  95. initTclFlag showEudoraMenu 1 showEudoraMenuProc
  96. initFlag showInvisibles
  97. initFlag sortedIsDefault
  98. initFlag tempMem
  99. initFlag undoOn
  100. initFlag wordWrap
  101.  
  102. proc wordWrapProc {val} { 
  103.     global mode wordWrap modifiedModeVars 
  104.     global ${mode}modeVars
  105.     set wordWrap $val
  106.     set ${mode}modeVars(wordWrap) $val
  107.     lappend modifiedModeVars [list wordWrap ${mode}modeVars]
  108. }
  109.  
  110.  
  111. initTclVar backExtension "~"
  112. initTclVar backDir
  113. set backDir ""
  114. initVar bottomMargin
  115. initVar changesLim
  116. initVar defaultFont
  117. initVar defHeight
  118. initVar defLeft     2
  119. initVar defTop         40
  120. initVar defWidth
  121. initTclVar diffFlags { }
  122. initVar fillColumn
  123. initVar fontSize
  124. initVar funcExpr
  125. initVar funcPar
  126. initTclVar horMargin 4
  127. initVar leftFillColumn
  128. initVar leftMargin
  129. initTclVar numWinsToTile 2
  130. initVar paraColumn
  131. initVar    printerFont
  132. initVar    printerFontSize
  133. initTclFlag printHeader 1
  134. initTclFlag printHeaderTime 1
  135. initTclFlag printHeaderFullPath 0
  136. initVar savedState
  137. initVar sortColumn
  138. initVar tabSize
  139. initVar tagFile
  140. initTclVar tileHeight
  141. initTclVar tileLeft 2
  142. initTclVar tileMargin 22
  143. initTclVar tileTop
  144. initTclVar tileWidth
  145. initVar topMargin
  146. initVar wordBreak
  147. initVar wordBreakPreface
  148. initVar    wrapBreak
  149. initVar    wrapBreakPreface
  150. initVar    wrapHigh
  151. initVar    wrapLow
  152.  
  153. # Flags that won't appear in the menu.
  154. linkVar numLock
  155.  
  156.  
  157.